00010	C  TO FACILITATE USE LINEN UNIT GENERATOR
00100		SUBROUTINE SUBR
00200	 	COMMON /INS/ INST(27),BG(60)
00300		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF
00400	C SETS VARIABLE 'X,Y OR Z' WHENEVER  NUMBER IN P11 CHANGES.
00500		DIMENSION X(3),Y(3)
00600		DATA Y/';X=0', ';Y=0', 'Z=0'/
00700	C  P11 MUST BE LAST PARAM IN LIST
00800		PL(11)=3
00900	2	IF(P(11).NE.X(INUM))GO TO 1
01000		P(11)=' '
01100		RETURN
01200	1	X(INUM)=P(11)
01210	C  STORE NUMB. FOUND IN P11
01300		P(11)=Y(INUM)
01400		END